C
C    1.  For flow and transport
C
      PARAMETER (MAXNPK=   52000,MAXELK=   90000)
      PARAMETER (MXKBDK=      70,MXJBDK=      102)
      PARAMETER (MXBNPK=    38400,MXBESK=    30000)
      PARAMETER (MXMATK=   15,MXRMPK= 8)
      PARAMETER (MXTUBK=    153600)
C
C    2.  Boundary condition for flow
C
      PARAMETER (MXWNPH= 60,MXWPRH=  60,MXWDPH=  100)
      PARAMETER (MXDNPH=   15000,MXDPRH=  200,MXDDPH=  100)
      PARAMETER (MXVNPH=   15000,MXVESH=   15000,MXVPRH=   200)
	  PARAMETER (MXVDPH=  100)
      PARAMETER (MXCNPH=   15000,MXCESH=   15000,MXCPRH=   200)
	  PARAMETER (MXCDPH=  100)
      PARAMETER (MXNNPH=     15000,MXNESH=     15000,MXNPRH=   200)
	  PARAMETER (MXNDPH=   100)
      PARAMETER (MXRNPH= 15000,MXRPRH= 15000,MXRMAH= 200)
	  PARAMETER (MXRDPH= 100,MXRESH= 13566)
C
C    3.  Boundary condition for transport
C
      PARAMETER (NXG=  1,NYG=   1,NZG=   1)
      PARAMETER (MXNPWK=   10,MXELWK=   1)
      PARAMETER (MXWNPC= 60,MXWPRC=   60,MXWDPC=  100)
      PARAMETER (MXDNPC=   15000,MXDPRC=   15000,MXDDPC=  200)
      PARAMETER (MXVNPC=   15000,MXVESC=   15000,MXVPRC=   200)
	  PARAMETER (MXVDPC=  100)
      PARAMETER (MXCNPC=   15000,MXCESC=   15000,MXCPRC=   200)
	  PARAMETER (MXCDPC=  100)
      PARAMETER (MXNNPC=     15000,MXNESC=     15000,MXNPRC=   200)
	  PARAMETER (MXNDPC=   100)
C
C    4.  For xy1 series cards
C
      PARAMETER (MXXYS=  250,MXXYP=  100,MXSPMK=  100)
	  PARAMETER (MXDTCK=   3)
C
C    5.  For working arrays
C
      PARAMETER (MXRSCB=  13800,KTMP= 55200)
C
C    6.  For post-processing array
C
      PARAMETER (MXPOST=   200)